100 REM *******************************
110 REM * BUDGET CALC   BY S.PHILLIPS *
120 REM *******************************
130 POKE808,239:REM DISABLES RUN/STOP
140 IFLO=1THENGOSUB2920:GOSUB2640:GOTO590
150 POKE53280,9:POKE53281,9:POKE646,7:PRINTCHR$(142):GOSUB160:GOSUB180:GOTO190
160 PRINT"[147]    B U D G E T    P R O G R A M M E":PE=1
170 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":RETURN
180 PRINT"WRITTEN BY:   SIMON PHILLIPS":RETURN
190 PRINT"PLEASE KEY IN PRESENT MONTH"
200 PRINT"MONTH: [164] [164] [164]"
210 QT=16:QU$="":AN$="":FT=0:OP=0:PE$="ACTUAL"
220 GETQU$:IFQU$=""THEN220
230 PRINT"[145]"TAB(QT)QU$
240 AN$=AN$+QU$:QT=QT+2:FT=FT+1:IFFT=3THEN260
250 GOTO220
260 IFAN$="JAN"THENOP=1
270 IFAN$="FEB"THENOP=2
280 IFAN$="MAR"THENOP=3
290 IFAN$="APR"THENOP=4
300 IFAN$="MAY"THENOP=5
310 IFAN$="JUN"THENOP=6
320 IFAN$="JUL"THENOP=7
330 IFAN$="AUG"THENOP=8
340 IFAN$="SEP"THENOP=9
350 IFAN$="OCT"THENOP=10
360 IFAN$="NOV"THENOP=11
370 IFAN$="DEC"THENOP=12
380 IFOP=0OROP=13THENAN$="":QT=16:FT=0:PRINT"[145][145][145]":GOTO200
390 PRINT"PRESS  SPACE BAR [146] TO COMMENCE LOADING":MZ$=AN$
400 GETA$:IFA$=" "THEN420
410 GOTO400
420 PRINT"[147]LOADING  BUDGET  DATA"
430 OPEN2,8,2,"0:BUDGET DATA,S,R":INPUT#2,SR:INPUT#2,CM:AM=0
440 DIMH(200),H$(200),Y(200),Y$(200),HM(20),HM$(20),YM(20),YM$(20),HS(25)
450 DIMHS$(25),YS(25),YS$(25),V(200)
460 DIMM$(20),M(20),S$(20),S(20),F$(200),F(200),FZ(200),FZ$(200),SR$(20),SS$(20)
470 DIMSU$(20),SR(20),SS(20),SU(20),BA$(30),BB$(30),BC$(30),BA(30),BB(30),J$(30)
480 DIMBC(30),ST$(20),MT$(20),MT(20),ST(20),NB(20),NC(20),GT(10),R(99):FORA=1TO192
490 INPUT#2,Y$(A):Y$=MID$(Y$(A),2):Y(A)=VAL(Y$):NEXTA
500 FORA=1TO192:INPUT#2,H$(A):H$=MID$(H$(A),2):H(A)=VAL(H$):NEXTA:GOSUB2920:GOSUB2640
510 FORB=1TO12:INPUT#2,SR$(B):SR$=MID$(SR$(B),2):SR(B)=VAL(SR$)
520 INPUT#2,SS$(B):SS$=MID$(SS$(B),2):SS(B)=VAL(SS$)
530 INPUT#2,SU$(B):SU$=MID$(SU$(B),2):SU(B)=VAL(SU$)
540 NEXTB:FORC=1TO16
550 INPUT#2,BA$(C):BA$=MID$(BA$(C),2):BA(C)=VAL(BA$)
560 INPUT#2,BB$(C):BB$=MID$(BB$(C),2):BB(C)=VAL(BB$)
570 INPUT#2,BC$(C):BC$=MID$(BC$(C),2):BC(C)=VAL(BC$)
580 NEXTC:INPUT#2,GT(1):INPUT#2,GT(2):INPUT#2,GT(3):CLOSE2
590 SM$="SUB [205] MONTH":ST$="SUBT":MT$="MONTHLY TOT":MI=12
600 OPEN3,8,3,"0:BUDGET SUBJECTS,S,R"
610 FORFI=1TO16
620 INPUT#3,J$(FI):S$(FI)=MID$(J$(FI),1,MI):INPUT#3,NB(FI):INPUT#3,NC(FI)
630 NEXTFI
640 CLOSE3
650 GOSUB660:GOTO720
660 FORGH=1TO192
670 IFY$(GH)="000"THENY$(GH)="---"
680 F$(GH)=Y$(GH):F(GH)=Y(GH)
690 NEXTGH
700 FORGH=1TO16:ST$(GH)=YS$(GH):ST(GH)=YS(GH):NEXTGH
710 FORGH=1TO12:MT$(GH)=YM$(GH):MT(GH)=YM(GH):NEXTGH:RETURN
720 OPEN4,8,4,"0:BUDGET MONTHS,S,R"
730 FORZZ=1TO12:INPUT#4,M$(ZZ):NEXTZZ:CLOSE4
740 IFAN$=MID$(M$(1),2,3)ANDLO=0THENCM=CM+1:SR=1:GOTO3200
750 LA$="":LB$=" ":LC$="  ":LD$="  ":LE$="    "
760 LF$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":LK$="":PE$=" ACTUAL "
770 GOSUB830:GOSUB780:GOTO820
780 PRINT"";
790 FORTY=1TO19:PRINT"                                       ":NEXTTY
800 RETURN
810 GOSUB830
820 GOTO860
830 PA$(1)="[207][183][183][183][183][183][183][208][207][183][183][183][183][208][146][207][183][183][183][183][183][208][207][183][183][183][208][207][183][183][183][183][183][183][183][183][208]"
840 PA$(2)="[180]REVIEW[167][165]MOVE[167][146][165]AMEND[167][165]END[167][165]"+PE$+"[167]"
850 PA$(3)="[204][175][175][175][175][175][175][186][204][175][175][175][175][186][146][204][175][175][175][175][175][186][204][175][175][175][186][204][175][175][175][175][175][175][175][175][186]":RETURN
860 GOSUB880
870 GOTO940
880 PRINT"[147]"
890 PRINT""
900 PRINT"[207][183][183][183][183][183][183][208][207][183][183][183][183][208][146][207][183][183][183][183][183][208][207][183][183][183][208][207][183][183][183][183][183][183][183][183][208]"
910 PRINT"[180]REVIEW[167][165]MOVE[167][146][165]AMEND[167][165]END[167][165]"+PE$+"[167]"
920 PRINT"[204][175][175][175][175][175][175][186][204][175][175][175][175][186][146][204][175][175][175][175][175][186][204][175][175][175][186][204][175][175][175][175][175][175][175][175][186]"
930 RETURN
940 PRINT""
950 GOSUB780
960 DI=2:S=1:F=1:U=1:M=1:MT=1:FF=F:SS=S:UU=U:MM=M:MU=MT:GOTO1260
970 F=FF:S=SS:U=UU:M=MM:MT=MU
980 SW=1:DI=2
990 AZ$="":AX$=""
1000 DI=2:PRINT"";AZ$;LB$;M$(M);LA$;M$(M+1);LA$;M$(M+2);LA$;M$(M+3);LC$;AX$
1010 PRINT"";LF$
1020 PRINT"";AZ$;LB$;F$(F);LB$;F$(F+1);LB$;F$(F+2);LB$;F$(F+3);LC$;AX$
1030 PRINT"";AZ$;LB$;F$(F+12);LB$;F$(F+13);LB$;F$(F+14);LB$;F$(F+15);LC$;
1040 PRINTAX$
1050 PRINT"";AZ$;LB$;F$(F+24);LB$;F$(F+25);LB$;F$(F+26);LB$;F$(F+27);LC$;
1060 PRINTAX$
1070 PRINT"";AZ$;LB$;F$(F+36);LB$;F$(F+37);LB$;F$(F+38);LB$;F$(F+39);LC$;
1080 PRINTAX$
1090 PRINT"";AZ$;LA$;MT$(MT);LA$;MT$(MT+1);LA$;MT$(MT+2);LA$;MT$(MT+3);LD$;
1100 PRINTGT$
1110 GOTO1390
1120 SW=1:DI=2
1130 AC$="":AV$="":AB$="            ":AS$="[157][157][157][157][157][157][157][157][157][157][157][157]"
1140 DI=2:PRINT""
1150 PRINT"";LF$
1160 PRINT"";AB$;AS$;S$(S);LB$;F$(F);LB$;F$(F+1);LB$;F$(F+2);LB$;F$(F+3);LC$;ST$(U)
1170 PRINT"";AB$;AS$;S$(S+1);LB$;F$(F+12);LB$;F$(F+13);LB$;F$(F+14);LB$;F$(F+15);
1180 PRINTLC$;ST$(U+1)
1190 PRINT"";AB$;AS$;S$(S+2);LB$;F$(F+24);LB$;F$(F+25);LB$;F$(F+26);LB$;F$(F+27);
1200 PRINTLC$;ST$(U+2)
1210 PRINT"";AB$;AS$;S$(S+3);LB$;F$(F+36);LB$;F$(F+37);LB$;F$(F+38);LB$;F$(F+39);
1220 PRINTLC$;ST$(U+3)
1230 PRINT"";AZ$;LA$;AC$;LA$;AC$;LA$;AC$;LA$;AC$;LD$;
1240 PRINTGT$
1250 GOTO1390
1260 F=FF:S=SS:U=UU:M=MM:MT=MU
1270 SW=1:DI=2:GOSUB780
1280 DI=2:PRINT"";SM$;LB$;M$(M);LA$;M$(M+1);LA$;M$(M+2);LA$;M$(M+3);LC$;ST$
1290 PRINT"";LF$
1300 PRINT"";S$(S);LB$;F$(F);LB$;F$(F+1);LB$;F$(F+2);LB$;F$(F+3);LC$;ST$(U)
1310 PRINT"";S$(S+1);LB$;F$(F+12);LB$;F$(F+13);LB$;F$(F+14);LB$;F$(F+15);LC$;
1320 PRINTST$(U+1)
1330 PRINT"";S$(S+2);LB$;F$(F+24);LB$;F$(F+25);LB$;F$(F+26);LB$;F$(F+27);LC$;
1340 PRINTST$(U+2)
1350 PRINT"";S$(S+3);LB$;F$(F+36);LB$;F$(F+37);LB$;F$(F+38);LB$;F$(F+39);LC$;
1360 PRINTST$(U+3)
1370 PRINT"";MT$;LA$;MT$(MT);LA$;MT$(MT+1);LA$;MT$(MT+2);LA$;MT$(MT+3);LD$;
1380 PRINTGT$
1390 SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16
1400 IF(SDAND1)THEN1460
1410 IF(SDAND2)THEN1500
1420 IF(SDAND4)THEN1540
1430 IF(SDAND8)THEN1590
1440 IFFO=0THEN2100
1450 SD=0:GOTO1390
1460 IFF=1ORF=2ORF=3ORF=4ORF=6ORF=7ORF=8THEN1390
1470 IFF=5THEN1390
1480 IFF=9THEN1390
1490 F=F-12:S=S-1:U=U-1:GOTO1120
1500 IFF=145ORF=146ORF=147ORF=148ORF=150ORF=151ORF=152THEN1390
1510 IFF=149THEN1390
1520 IFF=153THEN1390
1530 F=F+12:S=S+1:U=U+1:GOTO1120
1540 IFF=1ORF=13ORF=25ORF=37ORF=61ORF=73ORF=85ORF=109ORF=121ORF=133THEN1390
1550 IFF=49THEN1390
1560 IFF=97THEN1390
1570 IFF=145THEN1390
1580 F=F-1:M=M-1:MT=MT-1:GOTO980
1590 IFF=9ORF=21ORF=33ORF=45ORF=69ORF=81ORF=93ORF=117ORF=129ORF=141THEN1390
1600 IFF=57THEN1390
1610 IFF=105THEN1390
1620 IFF=153THEN1390
1630 F=F+1:M=M+1:MT=MT+1:GOTO980
1640 CE$="":NU=0:CF=0:CG=0:F=FF:PRINT""F$(F)"[146]":X=0:Y=0
1650 FF=F:SS=S:UU=U:MM=M:MU=MT
1660 SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16:Y1=Y:X1=X
1670 IF(SDAND2)THENY=Y+1:GOTO1710
1680 IF(SDAND1)THENY=Y-1:GOTO1710
1690 IF(SDAND4)THENX=X-1:GOTO1710
1700 IF(SDAND8)THENX=X+1:GOTO1710
1710 IFY<0THENY=0
1720 IFY>3THENY=3
1730 IFX<0THENX=0
1740 IFX>3THENX=3
1750 IFFO=0THENGOSUB890:GOTO1260
1760 IFX<>X1THENGOSUB1990
1770 IFY<>Y1THENGOSUB1990
1780 PRINT"";:NU=0:FORJA=1TO(Y*3)+4:PRINT"";:NEXTJA
1790 PRINTTAB(13+(X*5));
1800 IFY>0THENNU=12*Y
1810 NU=NU+X
1820 PRINT"";F$(F+NU)
1830 GETA$
1840 FO=PEEK(56320)AND16:IFFO=0THEN1750
1850 IFA$=""THEN1890
1860 IFA$=CHR$(13)THEN1910
1870 A=ASC(A$):IFA>57ORA<48THEN1830
1880 GOTO1910
1890 IFCF=0THEN1980
1900 GOTO1830
1910 CG=CG+1:IFCG=4THENCP$=CE$:CE$=""+CE$:GOTO2010
1920 CE$=CE$+A$
1930 PRINT"";
1940 PRINT"";:FORJA=1TO(Y*3)+4:PRINT"";:NEXTJA
1950 PRINTTAB(14+(X*5));"";CE$
1960 CF=1:GOTO1830
1970 IFFO=0THEN2100
1980 SD=0:GOTO1660
1990 PRINT"";:FORJA=1TO(Y1*3)+4:PRINT"";:NEXTJA
2000 PRINTTAB(13+(X1*5));"[146]";F$(F+NU):RETURN
2010 IFA$=CHR$(13)THENCF=0:F$(F+NU)=CE$:F(F+NU)=VAL(CP$):AM=1:GOTO2030
2020 GOTO2090
2030 PRINT"PLEASE WAIT"
2040 IFPE=1THENY$(F+NU)=CE$:Y(F+NU)=VAL(CP$)
2050 IFPE=0THENH$(F+NU)=CE$:H(F+NU)=VAL(CP$)
2060 IFPE=1THENGOSUB2640:GOSUB660:GOTO2080
2070 IFPE=0THENGOSUB2920:GOSUB3590:GOTO2080
2080 GOSUB830:GOSUB880:GOTO1260
2090 CG=0:CE$="":GOTO1930
2100 FF=F:SS=S:UU=U:MM=M:MU=MT
2110 FO=PEEK(56320)AND16:IFFO=0THEN2110
2120 F=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16
2130 IF(SDAND1)THEN2110
2140 IF(SDAND2)THEN2110
2150 IF(SDAND4)THENDI=DI-1:GOTO2190
2160 IF(SDAND8)THENDI=DI+1:GOTO2190
2170 IFFO=0THEN2530
2180 SD=0:GOTO2120
2190 IFDI=0THENDI=5:GOTO2210
2200 IFDI=6THENDI=1
2210 ONDIGOTO2230,2290,2350,2410,2470
2220 GOTO2120
2230 PRINT""
2240 PRINT"[207][183][183][183][183][183][183][208][146][207][183][183][183][183][208][207][183][183][183][183][183][208][207][183][183][183][208][207][183][183][183][183][183][183][183][183][208]"
2250 PRINT"[180]REVIEW[167][146][165]MOVE[167][165]AMEND[167][165]END[167][165]";PE$;"[167]"
2260 PRINT"[204][175][175][175][175][175][175][186][146][204][175][175][175][175][186][204][175][175][175][175][175][186][204][175][175][175][186][204][175][175][175][175][175][175][175][175][186]"
2270 FORDZ=1TO100:NEXTDZ
2280 GOTO2120
2290 PRINT""
2300 PRINT"[207][183][183][183][183][183][183][208][207][183][183][183][183][208][146][207][183][183][183][183][183][208][207][183][183][183][208][207][183][183][183][183][183][183][183][183][208]"
2310 PRINT"[180]REVIEW[167][165]MOVE[167][146][165]AMEND[167][165]END[167][165]";PE$;"[170]"
2320 PRINT"[204][175][175][175][175][175][175][186][204][175][175][175][175][186][146][204][175][175][175][175][175][186][204][175][175][175][186][204][175][175][175][175][175][175][175][175][186]"
2330 FORDZ=1TO100:NEXTDZ
2340 GOTO2120
2350 PRINT""
2360 PRINT"[207][183][183][183][183][183][183][208][207][183][183][183][183][208][207][183][183][183][183][183][208][146][207][183][183][183][208][207][183][183][183][183][183][183][183][183][208]"
2370 PRINT"[180]REVIEW[167][165]MOVE[167][165]AMEND[167][146][165]END[167][165]";PE$;"[170]"
2380 PRINT"[204][175][175][175][175][175][175][186][204][175][175][175][175][186][204][175][175][175][175][175][186][146][204][175][175][175][186][204][175][175][175][175][175][175][175][175][186]"
2390 FORDZ=1TO100:NEXTDZ
2400 GOTO2120
2410 PRINT""
2420 PRINT"[207][183][183][183][183][183][183][208][207][183][183][183][183][208][207][183][183][183][183][183][208][207][183][183][183][208][146][207][183][183][183][183][183][183][183][183][208]"
2430 PRINT"[180]REVIEW[167][165]MOVE[167][165]AMEND[167][165]END[167][146][165]";PE$;"[170]"
2440 PRINT"[204][175][175][175][175][175][175][186][204][175][175][175][175][186][204][175][175][175][175][175][186][204][175][175][175][186][146][204][175][175][175][175][175][175][175][175][186]"
2450 FORDZ=1TO100:NEXTDZ
2460 GOTO2120
2470 PRINT""
2480 PRINT"[207][183][183][183][183][183][183][208][207][183][183][183][183][208][207][183][183][183][183][183][208][207][183][183][183][208][207][183][183][183][183][183][183][183][183][208][146]"
2490 PRINT"[180]REVIEW[167][165]MOVE[167][165]AMEND[167][165]END[167][165]";PE$;"[170][146]"
2500 PRINT"[204][175][175][175][175][175][175][186][204][175][175][175][175][186][204][175][175][175][175][175][186][204][175][175][175][186][204][175][175][175][175][175][175][175][175][186][146]"
2510 FORDZ=1TO100:NEXTDZ
2520 GOTO2120
2530 PRINT""
2540 ONDIGOTO3480,2600,1640,3470,3500
2550 END
2560 GOSUB2640:DI=2:GOTO2350
2570 PRINT"[180]REVIEW[167][165]MOVE[167][146][165]AMEND[167][165]END[167][165]";PE$;"[167]"
2580 PRINT"[204][175][175][175][175][175][175][186][204][175][175][175][175][186][146][204][175][175][175][175][175][186][204][175][175][175][186][204][175][175][175][175][175][175][175][175][186]"
2590 GOTO2630
2600 PRINT"[147]":PRINT""
2610 PRINT"[207][183][183][183][183][183][183][208][207][183][183][183][183][208][146][207][183][183][183][183][183][208][207][183][183][183][208][207][183][183][183][183][183][183][183][183][208]"
2620 GOTO2570
2630 GOTO1260
2640 FORER=1TO(12*16):IFY$(ER)="000"THENY$(ER)="---":NEXTER
2650 FORTY=1TO12
2660 YM(TY)=Y(TY)+Y(TY+12)+Y(TY+24)+Y(TY+48)+Y(TY+60)+Y(TY+72)+Y(TY+84)+Y(TY+96)
2670 YM(TY)=YM(TY)+Y(TY+108)+Y(TY+120)+Y(TY+132)+Y(TY+144)+Y(TY+156)+Y(TY+168)
2680 YM(TY)=YM(TY)+Y(TY+36)+Y(TY+180):YM$(TY)=STR$(YM(TY))
2690 NEXTTY:ZY=0
2700 FORZX=0TO15:ZZ=(ZX*12)+1:ZY=ZY+1
2710 YS(ZY)=Y(ZZ)+Y(ZZ+1)+Y(ZZ+2)+Y(ZZ+3)+Y(ZZ+4)+Y(ZZ+5)+Y(ZZ+6)+Y(ZZ+7)
2720 YS(ZY)=YS(ZY)+Y(ZZ+8)+Y(ZZ+9)+Y(ZZ+10)+Y(ZZ+11)
2730 NEXTZX
2740 FORTY=1TO16:YS$(TY)=STR$(YS(TY)):NEXTTY
2750 GT=YM(1)+YM(2)+YM(3)+YM(4)+YM(5)+YM(6)+YM(7)+YM(8)+YM(9)+YM(10)+YM(11)
2760 GT=GT+YM(12):GT$=STR$(GT):GT$=MID$(GT$,2):GT$=""+GT$
2770 FORT=1TO16:YM$(T)=MID$(YM$(T),2)
2780 IFYM$(T)="0"THENYM$(T)="0000":GOTO2830
2790 L=LEN(YM$(T)):IFL=3THENYM$(T)="0"+YM$(T):GOTO2830
2800 L=LEN(YM$(T)):IFL=2THENYM$(T)="00"+YM$(T):GOTO2830
2810 L=LEN(YM$(T)):IFL=1THENYM$(T)="000"+YM$(T):GOTO2830
2820 L=LEN(YM$(T)):IFL=4THENYM$(T)=""+YM$(T):GOTO2830
2830 NEXTT
2840 FORT=1TO16:YS$(T)=MID$(YS$(T),2)
2850 IFYS$(T)="0"THENYS$(T)="0000":GOTO2900
2860 L=LEN(YS$(T)):IFL=3THENYS$(T)="0"+YS$(T):GOTO2900
2870 L=LEN(YS$(T)):IFL=2THENYS$(T)="00"+YS$(T):GOTO2900
2880 L=LEN(YS$(T)):IFL=1THENYS$(T)="000"+YS$(T):GOTO2900
2890 L=LEN(YS$(T)):IFL=4THENYS$(T)=""+YS$(T)
2900 NEXTT
2910 RETURN
2920 FORER=1TO(12*16):IFH$(ER)="000"THENH$(ER)="---":NEXTER
2930 FORTY=1TO12
2940 HM(TY)=H(TY)+H(TY+12)+H(TY+24)+H(TY+48)+H(TY+60)+H(TY+72)+H(TY+84)+H(TY+96)
2950 HM(TY)=HM(TY)+H(TY+108)+H(TY+120)+H(TY+132)+H(TY+144)+H(TY+156)+H(TY+168)
2960 HM(TY)=HM(TY)+H(TY+36)+H(TY+180):HM$(TY)=STR$(HM(TY))
2970 NEXTTY:ZY=0
2980 FORZX=0TO15:ZZ=(ZX*12)+1:ZY=ZY+1
2990 HS(ZY)=H(ZZ)+H(ZZ+1)+H(ZZ+2)+H(ZZ+3)+H(ZZ+4)+H(ZZ+5)+H(ZZ+6)+H(ZZ+7)
3000 HS(ZY)=HS(ZY)+H(ZZ+8)+H(ZZ+9)+H(ZZ+10)+H(ZZ+11)
3010 NEXTZX
3020 FORTY=1TO16:HS$(TY)=STR$(HS(TY)):NEXTTY
3030 GT=HM(1)+HM(2)+HM(3)+HM(4)+HM(5)+HM(6)+HM(7)+HM(8)+HM(9)+HM(10)+HM(11)
3040 GT=GT+HM(12):GT$=STR$(GT):GT$=MID$(GT$,2):GT$=""+GT$:GH$=GT$
3050 FORT=1TO16:HM$(T)=MID$(HM$(T),2)
3060 IFHM$(T)="0"THENHM$(T)="0000":GOTO3110
3070 L=LEN(HM$(T)):IFL=3THENHM$(T)="0"+HM$(T):GOTO3110
3080 L=LEN(HM$(T)):IFL=2THENHM$(T)="00"+HM$(T):GOTO3110
3090 L=LEN(HM$(T)):IFL=1THENHM$(T)="000"+HM$(T):GOTO3110
3100 L=LEN(HM$(T)):IFL=4THENHM$(T)=""+HM$(T):GOTO3110
3110 NEXTT
3120 FORT=1TO16:HS$(T)=MID$(HS$(T),2)
3130 IFHS$(T)="0"THENHS$(T)="0000":GOTO3180
3140 L=LEN(HS$(T)):IFL=3THENHS$(T)="0"+HS$(T):GOTO3180
3150 L=LEN(HS$(T)):IFL=2THENHS$(T)="00"+HS$(T):GOTO3180
3160 L=LEN(HS$(T)):IFL=1THENHS$(T)="000"+HS$(T):GOTO3180
3170 L=LEN(HS$(T)):IFL=4THENHS$(T)=""+HS$(T)
3180 NEXTT
3190 RETURN
3200 FORW=1TO193:Y(W)=0:H(W)=0:H$(W)="---":Y$(W)="---":NEXTW
3210 FORGH=1TO192
3220 H(GH)=0:IFH(GH)>0THENH(GH)=0
3230 Y(GH)=0:IFY(GH)>0THENY(GH)=0:NEXTGH
3240 FORE=1TO16
3250 IFST(E)>0THENST(E)=0
3260 ST$(E)="0000":NEXTE
3270 GT(1)=GT(2):GT$(1)=GT$(2)
3280 GT(2)=GT(3):GT$(2)=GT$(3)
3290 GT(3)=GT:GT$(3)=GT$
3300 FORGH=1TO12
3310 YM$(GH)="0000":IFYM$(GH)<>"0000"THENYM$(GH)="0000"
3320 HM$(GH)="0000":IFHM$(GH)<>"0000"THENHM$(GH)="0000"
3330 NEXTGH
3340 GT=0:GT$="0000"
3350 FORP=1TO16
3360 YS$(P)="0000"
3370 HS$(P)="0000"
3380 YS(P)=0000
3390 HS(P)=0000
3400 NEXTP:SR=0
3410 FORP=1TO12:HM(P)=0000:HM$(P)="0000":YM(P)=0:YM$(P)="0000":NEXTP
3420 F=ZQ(1):S=ZQ(2):T=ZQ(3):M=ZQ(4):MT=ZQ(5)
3430 FORTU=1TO193:F$(TU)=Y$(TU):F(TU)=Y(TU):NEXTTU
3440 FORTU=1TO16:ST$(TU)=YS$(TU):ST(TU)=YS(TU):NEXTTU
3450 FORTU=1TO12:MT$(TU)=YM$(TU):MT(TU)=YM(TU):NEXTTU
3460 GOTO750
3470 PRINT"PLEASE WAIT":GOSUB3650:LOAD"BUD END",8,1
3480 PRINT"PLEASE WAIT":GOSUB3650
3490 LOAD"BUD REVIEW",8,1
3500 PRINT"PLEASE WAIT"
3510 IFPE=0THENPE=1:PE$=" ACTUAL ":GOSUB2640:GOTO3560
3520 IFPE=1THENPE=0:PE$="ESTIMATE":GOSUB2920
3530 FORTU=1TO193:F$(TU)=H$(TU):F(TU)=H(TU):NEXTTU
3540 FORTU=1TO16:ST$(TU)=HS$(TU):ST(TU)=HS(TU):NEXTTU
3550 FORTU=1TO12:MT$(TU)=HM$(TU):MT(TU)=HM(TU):NEXTTU:GOTO2600
3560 FORTU=1TO193:F$(TU)=Y$(TU):F(TU)=Y(TU):NEXTTU
3570 FORTU=1TO16:ST$(TU)=YS$(TU):ST(TU)=YS(TU):NEXTTU
3580 FORTU=1TO12:MT$(TU)=YM$(TU):MT(TU)=YM(TU):NEXTTU:GOTO2600
3590 FORGH=1TO192
3600 IFH$(GH)="000"THENH$(GH)="---"
3610 F$(GH)=H$(GH):F(GH)=H(GH)
3620 NEXTGH
3630 FORGH=1TO12:ST$(GH)=HS$(GH):ST(GH)=HS(GH):NEXTGH
3640 FORGH=1TO16:MT$(GH)=HM$(GH):MT(GH)=HM(GH):NEXTGH:RETURN
3650 GT=YM(1)+YM(2)+YM(3)+YM(4)+YM(5)+YM(6)+YM(7)+YM(8)+YM(9)+YM(10)+YM(11)
3660 GT=GT+YM(12):GT$=STR$(GT):GT$=MID$(GT$,2):GT$=""+GT$
3670 OPEN2,8,2,"@0:BUDGET DATA 2,S,W"
3680 FORTY=1TO192
3690 PRINT#2,Y$(TY)
3700 PRINT#2,Y(TY)
3710 NEXTTY
3720 FORTY=1TO192
3730 PRINT#2,H$(TY)
3740 PRINT#2,H(TY)
3750 NEXTTY
3760 PRINT#2,GT$
3770 FORTY=1TO12
3780 PRINT#2,YM$(TY)
3790 PRINT#2,YM(TY)
3800 NEXTTY
3810 FORTY=1TO12
3820 PRINT#2,HM$(TY)
3830 PRINT#2,HM(TY)
3840 NEXTTY
3850 FORTY=1TO16
3860 PRINT#2,YS$(TY)
3870 PRINT#2,YS(TY)
3880 NEXTTY
3890 FORTY=1TO16
3900 PRINT#2,HS$(TY)
3910 PRINT#2,HS(TY)
3920 NEXTTY:CLOSE2
3930 RETURN